home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -seriously_amiga- / misc / ced_html / html / html_list.ced < prev    next >
Text File  |  1999-01-25  |  4KB  |  144 lines

  1. /*
  2. ** html_list.ced
  3. **
  4. ** $VER: html_list.ced 1.6 (01.10.1999)
  5. **
  6. ** Arexx script for HTML v3.2 list stucture
  7. **
  8. ** This script works with CygnusEd Professional v4.2
  9. **
  10. ** Copyright © Eric BELLE
  11. */
  12.  
  13. /*
  14. **------------------------------------------------------------------------------
  15. **    Initialisation
  16. **------------------------------------------------------------------------------
  17. */
  18.  
  19. OPTIONS RESULTS                            /* Tell CygnusEd to return results. */
  20. NL = '0A'X                                    /* Alias for new line. */
  21. KRETURN = RAWKEY 68                    /* Shortcut to the return key. */
  22. KTAB = RAWKEY 66                        /* Shortcut to the tab key. */
  23. STATUS TABSARESPACES                /* Return TAB mode ("tab" or "space"). */
  24. IF RESULT = 1                                /* Test the TAB mode. */
  25. THEN "TABS = SPACES"                /* Switch TAB mode from "space" to "tab". */
  26. ELSE NOP                                        /* No operation. */
  27. TAB SIZE 1                                    /* Set TAB size proportional to 2 spaces. */
  28.  
  29. /*
  30. **------------------------------------------------------------------------------
  31. **    Liste mode
  32. **------------------------------------------------------------------------------
  33. */
  34.  
  35. ListChoice = "no"
  36. Do While (ListChoice="no")
  37.     OKAY2 "List modes:"                                        || NL ||,
  38.                 "~~~~~~~~~~"                                        || NL ||,
  39.                 "  (d)efault               "        || NL ||,
  40.                 "  (a)rabic  1,2,3,...     "        || NL ||,
  41.                 "  (l)etter  a,b,c,...     "        || NL ||,
  42.                 "  (L)etter  A,B,C,...     "        || NL ||,
  43.                 "  (r)oman   i,ii,iii,...  "        || NL ||,
  44.                 "  (R)oman   I,II,III,...  "
  45.  
  46.     IF (RESULT=0)
  47.     THEN EXIT 0
  48.     ELSE ListChoice="ok"
  49.  
  50.     ListMode = "q"
  51.     DO WHILE ~(ListMode="d" | ListMode="a" | ListMode="l",
  52.                         | ListMode="L" | ListMode="r" | ListMode="R",
  53.                         | ListMode="RESULT" | ListMode=" ")
  54.         GETSTRING "d" '"List mode: d, a, l, L, r, R"'
  55.         ListMode = RESULT
  56.     END
  57.  
  58.     IF (ListMode="RESULT" | ListMode=" ")
  59.     THEN ListChoice = "no"
  60.     ELSE NOP
  61. END
  62.  
  63. /*
  64. **------------------------------------------------------------------------------
  65. **    Item number
  66. **------------------------------------------------------------------------------
  67. */
  68.  
  69. IF (ListMode="l" | ListMode="L")
  70. THEN ItemMax = 26
  71. ELSE ItemMax = 32768
  72.  
  73. GETNUMBER 3 '"How many items?"' 1 ItemMax
  74. ItemNumber = RESULT
  75.  
  76. IF (ItemNumber=" ")
  77. THEN EXIT 0
  78. ELSE NOP
  79.  
  80. /*
  81. **------------------------------------------------------------------------------
  82. **    First item number
  83. **------------------------------------------------------------------------------
  84. */
  85.  
  86. IF ~(ListMode="d")
  87. THEN DO
  88.     FirstMax = ItemMax - ItemNumber + 1
  89.  
  90.     GETNUMBER 1 '"First item number?"' 1 FirstMax
  91.     FirstItem = RESULT
  92.  
  93.     IF (FirstItem=" ")
  94.     THEN EXIT 0
  95.     ELSE NOP
  96. END
  97. ELSE NOP
  98.  
  99. /*
  100. **------------------------------------------------------------------------------
  101. **    Html list marks
  102. **------------------------------------------------------------------------------
  103. */
  104.  
  105. CloseList = "</0L>"
  106. SELECT
  107.     WHEN (ListMode="a")    THEN OpenList = "<OL START="                || FirstItem || ">"
  108.     WHEN (ListMode="l") THEN OpenList    =    "<OL TYPE=a START=" || FirstItem || ">"
  109.     WHEN (ListMode="L") THEN OpenList    =    "<OL TYPE=A START=" || FirstItem || ">"
  110.     WHEN (ListMode="r") THEN OpenList    =    "<OL TYPE=i START=" || FirstItem || ">"
  111.     WHEN (ListMode="R") THEN OpenList    =    "<OL TYPE=I START=" || FirstItem || ">"
  112.     OTHERWISE DO
  113.         OpenList = "<UL>"
  114.         CloseList = "</UL>"
  115.     END
  116. END
  117.  
  118. OpenItem = "<LI>"
  119. CloseItem = "</LI>"
  120.  
  121. /*
  122. **------------------------------------------------------------------------------
  123. **    Html list structure
  124. **------------------------------------------------------------------------------
  125. */
  126.  
  127. TEXT OpenList ; "AUTO-INDENT" ; KTAB
  128. DO I=1 TO ItemNumber
  129.     TEXT OpenItem ; "AUTO-INDENT" ; KTAB
  130.     String = 'Should be modified - Item n°' || I
  131.     TEXT String ; "AUTO-INDENT" ; BACKTAB
  132.     TEXT CloseItem ; "AUTO-INDENT"
  133.     END
  134. BACKTAB
  135. TEXT CloseList
  136.  
  137. /*
  138. **------------------------------------------------------------------------------
  139. **    End of html_list.ced Arexx script
  140. **------------------------------------------------------------------------------
  141. */
  142.  
  143. EXIT 0
  144.